home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / Portfolio.cpt / Home / card_3012.txt < prev    next >
Text File  |  1988-01-24  |  5KB  |  228 lines
  1. -- card: 3012 from stack: in
  2. -- bmap block id: 3204
  3. -- flags: 4000
  4. -- background id: 2282
  5. -- name: User Preferences
  6. ----- HyperTalk script -----
  7. ------------------------------------------------------------------------
  8. -- OPEN CARD
  9. ------------------------------------------------------------------------
  10.  
  11. On OpenCard
  12.   SetUserLevel the UserLevel
  13.   If card field "User Name" is empty
  14.   Then click at the loc of card field "User Name"
  15. End OpenCard
  16.  
  17. ------------------------------------------------------------------------
  18. -- SET USER LEVEL
  19. ------------------------------------------------------------------------
  20.  
  21. On SetUserLevel WhatLevel
  22.   Set UserLevel to WhatLevel
  23.   If the UserLevel is WhatLevel then
  24.     Put the UserLevel into card field "User Level"
  25.     Set hilite of button "Browsing" to the userLevel = 1
  26.     Set hilite of button "Typing" to the userLevel = 2
  27.     Set hilite of button "Painting" to the userLevel = 3
  28.     Set hilite of button "Authoring" to the userLevel = 4
  29.     Set hilite of button "Scripting" to the userLevel = 5
  30.     Set visible of button "Power Keys" to the userLevel >= 3
  31.     Set visible of button "Blind Typing" to the userLevel = 5
  32.     Set hilite of button "Power Keys" to the powerKeys
  33.     Set hilite of button "Blind Typing" to the blindTyping
  34.   Else
  35.     Set hilite of the target to false
  36.   End if
  37. End SetUserLevel
  38.  
  39.  
  40.  
  41. -- part 1 (button)
  42. -- low flags: 00
  43. -- high flags: A006
  44. -- rect: left=141 top=139 right=160 bottom=269
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Browsing
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   setUserLevel 1
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 2 (button)
  61. -- low flags: 00
  62. -- high flags: A006
  63. -- rect: left=141 top=179 right=200 bottom=269
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Painting
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   setUserLevel 3
  75. end mouseUp
  76.  
  77.  
  78.  
  79. -- part 3 (button)
  80. -- low flags: 00
  81. -- high flags: A006
  82. -- rect: left=141 top=199 right=220 bottom=269
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 0 / 0
  85. -- text alignment: 1
  86. -- font id: 0
  87. -- text size: 12
  88. -- style flags: 0
  89. -- line height: 16
  90. -- part name: Authoring
  91. ----- HyperTalk script -----
  92. on mouseUp
  93.   setUserLevel 4
  94. end mouseUp
  95.  
  96.  
  97.  
  98. -- part 4 (button)
  99. -- low flags: 00
  100. -- high flags: E006
  101. -- rect: left=141 top=219 right=240 bottom=269
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: Scripting
  110. ----- HyperTalk script -----
  111. on mouseUp
  112.   setUserLevel 5
  113. end mouseUp
  114.  
  115.  
  116.  
  117. -- part 5 (button)
  118. -- low flags: 00
  119. -- high flags: A005
  120. -- rect: left=268 top=179 right=200 bottom=371
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: Power Keys
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   set powerKeys to the hilite of button "Power Keys"
  132. end mouseUp
  133.  
  134.  
  135.  
  136. -- part 7 (field)
  137. -- low flags: 00
  138. -- high flags: 0000
  139. -- rect: left=183 top=66 right=84 bottom=476
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 0
  143. -- font id: 3
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: User Name
  148. ----- HyperTalk script -----
  149. on closeField
  150.   global userName
  151.   put card field "User Name" into userName
  152. end closeField
  153.  
  154.  
  155.  
  156. -- part 8 (button)
  157. -- low flags: 00
  158. -- high flags: A006
  159. -- rect: left=141 top=159 right=180 bottom=269
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 1
  163. -- font id: 0
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: Typing
  168. ----- HyperTalk script -----
  169. on mouseUp
  170.   setUserLevel 2
  171. end mouseUp
  172.  
  173.  
  174.  
  175. -- part 9 (field)
  176. -- low flags: 81
  177. -- high flags: 0000
  178. -- rect: left=173 top=125 right=144 bottom=198
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 0
  182. -- font id: 3
  183. -- text size: 12
  184. -- style flags: 0
  185. -- line height: 16
  186. -- part name: User Level
  187.  
  188.  
  189. -- part 13 (button)
  190. -- low flags: 00
  191. -- high flags: A005
  192. -- rect: left=268 top=219 right=240 bottom=371
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 1
  196. -- font id: 0
  197. -- text size: 12
  198. -- style flags: 0
  199. -- line height: 16
  200. -- part name: Blind Typing
  201. ----- HyperTalk script -----
  202. on mouseUp
  203.   set blindTyping to the hilite of button "Blind Typing"
  204. end mouseUp
  205.  
  206.  
  207.  
  208. -- part 14 (field)
  209. -- low flags: 01
  210. -- high flags: 0002
  211. -- rect: left=96 top=34 right=53 bottom=481
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: 
  220.  
  221.  
  222. -- part contents for card part 9
  223. ----- text -----
  224. 5
  225.  
  226. -- part contents for card part 14
  227. ----- text -----
  228. User Preferences